home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 2.st / SORTDEMO.ARC / SORTDEMO.MOD < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.0 KB  |  28 lines
  1. (* MODULA-2 Version of Selection Sort *)
  2. MODULE SortDemo;
  3. FROM BIOS        IMPORT BConIn,Device;
  4. FROM GEMDOS      IMPORT ConOut;
  5. FROM InOut       IMPORT WriteCard,WriteString,WriteLn;
  6. FROM Sort        IMPORT SelectSort,MAXSIZE;
  7. FROM XBIOS       IMPORT Random;
  8.  
  9. VAR
  10.   Numbers,SortedNumbers : ARRAY[0..MAXSIZE] OF CARDINAL;
  11.   x,y                   : CARDINAL;
  12.   wait      : LONGCARD;
  13.    
  14. BEGIN
  15.    ConOut(CHR(27)); ConOut("E"); (* Clear the screen                  *)
  16.    WriteLn;                      (* Skip a line                       *)
  17.    FOR x := 0 TO MAXSIZE DO      (* Fill the array with random values *)
  18.       Numbers[x] := CARDINAL(Random() MOD 200);
  19.    END;
  20.    SelectSort(Numbers,SortedNumbers);
  21.    WriteString("    UNSORTED ARRAY     SORTED ARRAY"); WriteLn;
  22.    FOR x := 0 TO MAXSIZE DO
  23.       WriteString("       "); WriteCard(Numbers[x],5);
  24.       WriteString("          "); WriteCard(SortedNumbers[x],5); WriteLn;
  25.    END;
  26.    wait := BConIn(CON); (* Wait for a key press *)
  27. END SortDemo.
  28.